###########################CARREGAR PACOTES##############################
#########################################################################
require(RcmdrMisc) #pacote para carregar arquivos do Excel
require(agricolae)
require(dae)
require(ExpDes)
#Mudar diretório
setwd("D:/OneDrive/UFMT/Disciplinas/Veterinaria/experimental/2019/dados")
setwd("C:/Users/ander/OneDrive/UFMT/Disciplinas/Veterinaria/experimental/2019/dados")




#########################################################################
############################Análise do DIC###############################
#########################################################################


##Importar dados
dados=readXL("fungos.xlsx",sheet = 1,stringsAsFactors=TRUE)
attach(dados)
str(dados)


####GERAR MODELO
model=aov(vr~trat)
anova(model)


#####PRESUPOSIÇÕES DA ANOVA
#Gerar os erros padronizados do modelo
e=rstandard(model)


#Teste de Kolmogorov-Smirnov - NORMALIDADE
m=mean(e)
dp=sd(e)
ks.test(e,"pnorm",sd=dp)

#Teste de Levene - Homogeneidade de Variância
leveneTest(model)

##Teste de Durbin-Watson - Independencia
set.seed(12345)
durbinWatsonTest(model)

          
####Anova com Teste de Tukey####################
crd(trat, vr, quali = TRUE, mcomp = "tukey", sigT = 0.05, sigF = 0.05)

####Anova com Teste de Scott-Knott####################
crd(trat, vr, quali = TRUE, mcomp = "sk", sigT = 0.05, sigF = 0.05)